package body Lib_Moulinette is

   function Get_Company(Str_To_Parse: String) return Societe is
      Res    : Str_Array(1..Length(V1_Static));
      Result : Societe;
   begin
      Res := Take_Enregistrements(V1_Static, Str_To_Parse);
      Result := (Res(3), Res(4), Res(6), Res(7));
      return Result;
   end Get_Company;

   function Get_All_Companies(File_Path: String) return Societe_Vector is
      Result : Societe_Vector.Vector;
      Handle : Text_File;
      Sot    : Societe;
   begin
      Open(Handle, In_File, File_Path);
      while not End_Of_File(Handle) loop
	 Result.Add(Get_Company(Get_Line(Handle)));
      end loop;
      return Result;
      Close(Handle);
   end Get_All_Companies;

   function Get_Facture_Details(Str_To_Parse: String; Offset, Number_Of_Parts, Length_Of_One_Part: Integer) return Details_Vector.Vector is
      Result : Details_Vector.Vector;
      Det    : Facture_Detail;
   begin
   end Get_Facture_Details;

   function Parse_All_Facture(Str_To_Parse: String) return Parsed_Facture;
   function Get_Facture_Details(Str_To_Parse: String; Offset, Number_Of_Parts, Length_Of_One_Part: Integer) return Details_Vector.Vector;
   function Parse_V1_Line(Str_To_Parse: String) return Parsed_Line;



end Lib_Moulinette;
